pkgs <- "
kthcorpus DT bslib htmltools dplyr downloadthis
"
import <- function(x)
x |> trimws() |> strsplit("\\s+") |> unlist() |>
lapply(function(x) library(x, character.only = TRUE)) |>
invisible()
pkgs |> import()Generate MODS from Scopus articles data
Scopus data retrieval
The Scopus APIs for publication search and extended abstracts data can be used to retrive metadata for Scopus publications.
Recent publications from KTH
Scopus data for KTH can be retrieved from Scopus APIs. This assumes environment variables for SCOPUS_API_KEY and SCOPUS_API_INSTTOKEN are available. These need to be present in the ~/.Renviron file. Requests counts towards a ratelimit quota, which can be checked using another function.
scopus <- scopus_search_pubs_kth()
scopus_ratelimit_quota()Due to the quota limit and since there is already a scheduled job providing the latest data, another better approach is to request the data from object storage.
scopus <- scopus_from_minio()Extended Abstract API data
Given a specific Scopus identifier for a publication, we can use a function to retrieve additional information including for example raw affiliation strings.
# use the first id
sid <- scopus$publications$`dc:identifier` |> head(1)
scopus_abstract_extended(sid)$scopus_abstract
# A tibble: 1 × 21
`dc:publisher` srctype prism…¹ prism…² sourc…³ cited…⁴ prism…⁵ subtype opena…⁶
<chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
1 Royal Society… j 2023-0… Journal 197001… 0 <NA> ar 1
# … with 12 more variables: `prism:issn` <chr>, `prism:issueIdentifier` <chr>,
# subtypeDescription <chr>, `prism:publicationName` <chr>,
# openaccessFlag <chr>, `prism:doi` <chr>, `prism:startingPage` <chr>,
# `dc:identifier` <chr>, lang <chr>, keywords <chr>, sid <chr>,
# `dc:description` <chr>, and abbreviated variable names ¹`prism:coverDate`,
# ²`prism:aggregationType`, ³`source-id`, ⁴`citedby-count`, ⁵`prism:volume`,
# ⁶openaccess
$scopus_authorgroup
# A tibble: 7 × 32
sid id i ce_gi…¹ prefe…² prefe…³ prefe…⁴ prefe…⁵ seq ce_in…⁶ fa
<chr> <chr> <int> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
1 SCOPU… 1 1 Maria … Maria … M.R. Telare… Telare… 1 M.R. true
2 SCOPU… 1 2 Tahani Tahani T. Kaldéus Kaldéu… 2 T. true
3 SCOPU… 1 3 Mats Mats M. Johans… Johans… 3 M. true
4 SCOPU… 1 4 Eva Eva E. Malmst… Malmst… 4 E. true
5 SCOPU… 2 1 Tahani Tahani T. Kaldéus Kaldéu… 2 T. true
6 SCOPU… 2 2 Mats Mats M. Johans… Johans… 3 M. true
7 SCOPU… 2 3 Eva Eva E. Malmst… Malmst… 4 E. true
# … with 21 more variables: type <chr>, ce_surname <chr>, auid <chr>,
# orcid <chr>, ce_indexed_name <chr>, country <chr>, address_part <chr>,
# postal_code <chr>, afid <chr>, country3 <chr>, city <chr>,
# organization <chr>, affiliation_id <chr>, ce_source_text <chr>,
# dptid <chr>, org <chr>, ce_source <chr>, ce_text <chr>, raw <lgl>,
# ap <chr>, raw_org <chr>, and abbreviated variable names ¹ce_given_name,
# ²preferred_name_ce_given_name, ³preferred_name_ce_initials, …
$scopus_correspondence
# A tibble: 1 × 5
sid ce_given_name ce_initials ce_surname ce_indexed_name
<chr> <chr> <chr> <chr> <chr>
1 SCOPUS_ID:85149069332 Eva E. Malmström Malmstrom E.
ORCiDs versus KTH identfiers
In order to automatically look up known KTH identifiers for researchers (kthids) from ORCiDs, known associations can be made available so these are known up-front.
Note that this is not necessary since otherwise these are looked up on article by article basis. But it can be useful to speed up the process.
ko <- kthid_orcid()Generating MODS for articles
Different publication types require sligthly different kinds of MODS file content.
To work with Scopus articles, filter on the publication subtype, like so:
# subtype == "cp" # conference paper
# subtype == "ar" # article
# subtype == "ch" # book chapter
articles <- scopus$publications |> filter(subtype == "ar")To generate MODS for a specific article, we need first its Scopus identifier
sids <- articles$`dc:identifier`
sid <- sids |> head(1)
# we provide previous scopus search results and kthid_orcid pairs
# to avoid runtime lookups for this data
mods <- sid |> scopus_mods(scopus = scopus, ko = ko)<?xml version="1.0" encoding="UTF-8"?>
<modsCollection xmlns="http://www.loc.gov/mods/v3" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.loc.gov/mods/v3 http://www.loc.gov/standards/mods/v3/mods-3-2.xsd">
<mods xmlns="http://www.loc.gov/mods/v3" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xlink="http://www.w3.org/1999/xlink" version="3.7" xsi:schemaLocation="http://www.loc.gov/mods/v3 http://www.loc.gov/standards/mods/v3/mods-3-7.xsd">
<genre authority="diva" type="contentTypeCode">referee</genre>
<genre authority="diva" type="publicationTypeCode">article</genre>
<genre authority="svep" type="publicationType">art</genre>
<genre authority="diva" type="publicationType" lang="eng">Article in journal</genre>
<genre authority="kev" type="publicationType" lang="eng">article</genre>
<name type="personal" authority="kth" href="u1s4onih">
<namePart type="family">Telaretti Leggieri</namePart>
<namePart type="given">Maria Rosella</namePart>
<role>
<roleTerm type="code" authority="marcrelator">aut</roleTerm>
</role>
<affiliation><![CDATA[Division of Coating Technology, Department of Fibre and Polymer Technology, School of Engineering Science in Chemistry, Biotechnology and Health, KTH Royal Institute of Technology, Teknikringen 56-58 SE-100 Stockholm 44 Sweden, Teknikringen 56-58]]></affiliation>
<description>org.orcid=0000-0002-2293-7481</description>
</name>
<name type="personal" authority="kth" href="">
<namePart type="family">Kaldéus</namePart>
<namePart type="given">Tahani</namePart>
<role>
<roleTerm type="code" authority="marcrelator">aut</roleTerm>
</role>
<affiliation><![CDATA[Division of Coating Technology, Department of Fibre and Polymer Technology, School of Engineering Science in Chemistry, Biotechnology and Health, KTH Royal Institute of Technology, Teknikringen 56-58 SE-100 Stockholm 44 Sweden, Teknikringen 56-58; Wallenberg Wood Science Center, Department of Fibre and Polymer Technology, KTH Royal Institute of Technology, Teknikringen 56-58 SE-100 Stockholm 44 Sweden, Teknikringen 56-58]]></affiliation>
</name>
<name type="personal" authority="kth" href="u1oqmcv9">
<namePart type="family">Johansson</namePart>
<namePart type="given">Mats</namePart>
<role>
<roleTerm type="code" authority="marcrelator">aut</roleTerm>
</role>
<affiliation><![CDATA[Division of Coating Technology, Department of Fibre and Polymer Technology, School of Engineering Science in Chemistry, Biotechnology and Health, KTH Royal Institute of Technology, Teknikringen 56-58 SE-100 Stockholm 44 Sweden, Teknikringen 56-58; Wallenberg Wood Science Center, Department of Fibre and Polymer Technology, KTH Royal Institute of Technology, Teknikringen 56-58 SE-100 Stockholm 44 Sweden, Teknikringen 56-58]]></affiliation>
<description>org.orcid=0000-0003-3201-5138</description>
</name>
<name type="personal" authority="kth" href="u1nutqfe">
<namePart type="family">Malmström</namePart>
<namePart type="given">Eva</namePart>
<role>
<roleTerm type="code" authority="marcrelator">aut</roleTerm>
</role>
<affiliation><![CDATA[Division of Coating Technology, Department of Fibre and Polymer Technology, School of Engineering Science in Chemistry, Biotechnology and Health, KTH Royal Institute of Technology, Teknikringen 56-58 SE-100 Stockholm 44 Sweden, Teknikringen 56-58; Wallenberg Wood Science Center, Department of Fibre and Polymer Technology, KTH Royal Institute of Technology, Teknikringen 56-58 SE-100 Stockholm 44 Sweden, Teknikringen 56-58]]></affiliation>
<description>org.orcid=0000-0002-8348-2273</description>
</name>
<titleInfo lang="eng">
<title>PDMAEMA from α to ω chain ends: tools for elucidating the structure of poly(2-(dimethylamino)ethyl methacrylate)</title>
</titleInfo>
<originInfo>
<publisher>Royal Society of Chemistry</publisher>
<dateIssued>2023</dateIssued>
<dateOther type="availableFrom">2023</dateOther>
</originInfo>
<physicalDescription>
<form authority="marcform">print</form>
</physicalDescription>
<identifier type="doi">10.1039/d2py01604d</identifier>
<identifier type="scopus">2-s2.0-85149069332</identifier>
<identifier type="eissn">17599962</identifier>
<identifier type="issn">17599954</identifier>
<identifier type="articleId"/>
<typeOfResource>text</typeOfResource>
<location>
<url>https://api.elsevier.com/content/abstract/scopus_id/85149069332</url>
</location>
<subject lang="eng">
<topic>NA</topic>
</subject>
<subject lang="eng" authority="hsv" xlink:href="10406">
<topic>Polymer Chemistry</topic>
</subject>
<subject lang="swe" authority="hsv" xlink:href="10406">
<topic>Polymerkemi</topic>
</subject>
<subject lang="eng" authority="hsv" xlink:href="10402">
<topic>Physical Chemistry</topic>
</subject>
<subject lang="swe" authority="hsv" xlink:href="10402">
<topic>Fysikalisk kemi</topic>
</subject>
<subject lang="eng" authority="hsv" xlink:href="10499">
<topic>Other Chemistry Topics</topic>
</subject>
<subject lang="swe" authority="hsv" xlink:href="10499">
<topic>Annan kemi</topic>
</subject>
<abstract lang="eng"><![CDATA[Poly(2-(dimethylamino)ethyl methacrylate) (PDMAEMA) is currently used for a wide range of applications, often involving the synthesis of block copolymers. Here, an in-depth characterization of PDMAEMA prepared by atom transfer radical polymerization (ATRP) is reported, with a focus on end group analysis. The structure of the polymer was elucidated by one- and two-dimensional NMR spectroscopy, which assessed the presence of deactivated chains and allowed for a quantification of their fraction. Detailed characterization by MALDI-TOF MS further provided insightful information about the chain end fidelity. On this basis, termination by disproportionation was found to be the main mechanism for the loss of active chain ends. The detailed characterization allowed for an estimation of the preserved chain end functionality (CEF) of PDMAEMA. Additionally, a chain extension experiment was conducted, using PDMAEMA as a macroinitiator for the polymerization of methyl methacrylate (MMA) by ATRP. The results of chain extension supported the estimation of CEF based on the data provided by NMR and MS. Although assessing the degree of polymerization of a block copolymer proves challenging when the amount of the initial block able to act as a macroinitiator is not known a priori, an accurate estimation of the DP and Mn of the obtained block copolymer was possible by total nitrogen analysis. The tools here provided for the characterization of PDMAEMA and its block copolymer architectures allow the obtainment of essential information about the extent of control over the homo- and copolymerization. Therefore, they are of high importance when well-defined structures are aimed for.]]></abstract>
<note>Imported from Scopus. VERIFY.</note>
<relatedItem type="host">
<titleInfo>
<title>Polymer Chemistry</title>
</titleInfo>
<identifier type="issn">17599954</identifier>
<part>
<detail type="volume">
<number/>
</detail>
<detail type="issue">
<number/>
</detail>
<extent>
<start/>
<end/>
</extent>
</part>
</relatedItem>
<!-- <note type="funder">@Funder@ [@project_number_from_funder@]</note> -->
</mods>
</modsCollection>
mods |> xml2::read_xml() |> as.character() |> cat()<?xml version="1.0" encoding="UTF-8"?>
<modsCollection xmlns="http://www.loc.gov/mods/v3" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.loc.gov/mods/v3 http://www.loc.gov/standards/mods/v3/mods-3-2.xsd">
<mods xmlns="http://www.loc.gov/mods/v3" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xlink="http://www.w3.org/1999/xlink" version="3.7" xsi:schemaLocation="http://www.loc.gov/mods/v3 http://www.loc.gov/standards/mods/v3/mods-3-7.xsd">
<genre authority="diva" type="contentTypeCode">referee</genre>
<genre authority="diva" type="publicationTypeCode">article</genre>
<genre authority="svep" type="publicationType">art</genre>
<genre authority="diva" type="publicationType" lang="eng">Article in journal</genre>
<genre authority="kev" type="publicationType" lang="eng">article</genre>
<name type="personal" authority="kth" href="u1s4onih">
<namePart type="family">Telaretti Leggieri</namePart>
<namePart type="given">Maria Rosella</namePart>
<role>
<roleTerm type="code" authority="marcrelator">aut</roleTerm>
</role>
<affiliation><![CDATA[Division of Coating Technology, Department of Fibre and Polymer Technology, School of Engineering Science in Chemistry, Biotechnology and Health, KTH Royal Institute of Technology, Teknikringen 56-58 SE-100 Stockholm 44 Sweden, Teknikringen 56-58]]></affiliation>
<description>org.orcid=0000-0002-2293-7481</description>
</name>
<name type="personal" authority="kth" href="">
<namePart type="family">Kaldéus</namePart>
<namePart type="given">Tahani</namePart>
<role>
<roleTerm type="code" authority="marcrelator">aut</roleTerm>
</role>
<affiliation><![CDATA[Division of Coating Technology, Department of Fibre and Polymer Technology, School of Engineering Science in Chemistry, Biotechnology and Health, KTH Royal Institute of Technology, Teknikringen 56-58 SE-100 Stockholm 44 Sweden, Teknikringen 56-58; Wallenberg Wood Science Center, Department of Fibre and Polymer Technology, KTH Royal Institute of Technology, Teknikringen 56-58 SE-100 Stockholm 44 Sweden, Teknikringen 56-58]]></affiliation>
</name>
<name type="personal" authority="kth" href="u1oqmcv9">
<namePart type="family">Johansson</namePart>
<namePart type="given">Mats</namePart>
<role>
<roleTerm type="code" authority="marcrelator">aut</roleTerm>
</role>
<affiliation><![CDATA[Division of Coating Technology, Department of Fibre and Polymer Technology, School of Engineering Science in Chemistry, Biotechnology and Health, KTH Royal Institute of Technology, Teknikringen 56-58 SE-100 Stockholm 44 Sweden, Teknikringen 56-58; Wallenberg Wood Science Center, Department of Fibre and Polymer Technology, KTH Royal Institute of Technology, Teknikringen 56-58 SE-100 Stockholm 44 Sweden, Teknikringen 56-58]]></affiliation>
<description>org.orcid=0000-0003-3201-5138</description>
</name>
<name type="personal" authority="kth" href="u1nutqfe">
<namePart type="family">Malmström</namePart>
<namePart type="given">Eva</namePart>
<role>
<roleTerm type="code" authority="marcrelator">aut</roleTerm>
</role>
<affiliation><![CDATA[Division of Coating Technology, Department of Fibre and Polymer Technology, School of Engineering Science in Chemistry, Biotechnology and Health, KTH Royal Institute of Technology, Teknikringen 56-58 SE-100 Stockholm 44 Sweden, Teknikringen 56-58; Wallenberg Wood Science Center, Department of Fibre and Polymer Technology, KTH Royal Institute of Technology, Teknikringen 56-58 SE-100 Stockholm 44 Sweden, Teknikringen 56-58]]></affiliation>
<description>org.orcid=0000-0002-8348-2273</description>
</name>
<titleInfo lang="eng">
<title>PDMAEMA from α to ω chain ends: tools for elucidating the structure of poly(2-(dimethylamino)ethyl methacrylate)</title>
</titleInfo>
<originInfo>
<publisher>Royal Society of Chemistry</publisher>
<dateIssued>2023</dateIssued>
<dateOther type="availableFrom">2023</dateOther>
</originInfo>
<physicalDescription>
<form authority="marcform">print</form>
</physicalDescription>
<identifier type="doi">10.1039/d2py01604d</identifier>
<identifier type="scopus">2-s2.0-85149069332</identifier>
<identifier type="eissn">17599962</identifier>
<identifier type="issn">17599954</identifier>
<identifier type="articleId"/>
<typeOfResource>text</typeOfResource>
<location>
<url>https://api.elsevier.com/content/abstract/scopus_id/85149069332</url>
</location>
<subject lang="eng">
<topic>NA</topic>
</subject>
<subject lang="eng" authority="hsv" xlink:href="10406">
<topic>Polymer Chemistry</topic>
</subject>
<subject lang="swe" authority="hsv" xlink:href="10406">
<topic>Polymerkemi</topic>
</subject>
<subject lang="eng" authority="hsv" xlink:href="10402">
<topic>Physical Chemistry</topic>
</subject>
<subject lang="swe" authority="hsv" xlink:href="10402">
<topic>Fysikalisk kemi</topic>
</subject>
<subject lang="eng" authority="hsv" xlink:href="10499">
<topic>Other Chemistry Topics</topic>
</subject>
<subject lang="swe" authority="hsv" xlink:href="10499">
<topic>Annan kemi</topic>
</subject>
<abstract lang="eng"><![CDATA[Poly(2-(dimethylamino)ethyl methacrylate) (PDMAEMA) is currently used for a wide range of applications, often involving the synthesis of block copolymers. Here, an in-depth characterization of PDMAEMA prepared by atom transfer radical polymerization (ATRP) is reported, with a focus on end group analysis. The structure of the polymer was elucidated by one- and two-dimensional NMR spectroscopy, which assessed the presence of deactivated chains and allowed for a quantification of their fraction. Detailed characterization by MALDI-TOF MS further provided insightful information about the chain end fidelity. On this basis, termination by disproportionation was found to be the main mechanism for the loss of active chain ends. The detailed characterization allowed for an estimation of the preserved chain end functionality (CEF) of PDMAEMA. Additionally, a chain extension experiment was conducted, using PDMAEMA as a macroinitiator for the polymerization of methyl methacrylate (MMA) by ATRP. The results of chain extension supported the estimation of CEF based on the data provided by NMR and MS. Although assessing the degree of polymerization of a block copolymer proves challenging when the amount of the initial block able to act as a macroinitiator is not known a priori, an accurate estimation of the DP and Mn of the obtained block copolymer was possible by total nitrogen analysis. The tools here provided for the characterization of PDMAEMA and its block copolymer architectures allow the obtainment of essential information about the extent of control over the homo- and copolymerization. Therefore, they are of high importance when well-defined structures are aimed for.]]></abstract>
<note>Imported from Scopus. VERIFY.</note>
<relatedItem type="host">
<titleInfo>
<title>Polymer Chemistry</title>
</titleInfo>
<identifier type="issn">17599954</identifier>
<part>
<detail type="volume">
<number/>
</detail>
<detail type="issue">
<number/>
</detail>
<extent>
<start/>
<end/>
</extent>
</part>
</relatedItem>
<!-- <note type="funder">@Funder@ [@project_number_from_funder@]</note> -->
</mods>
</modsCollection>
The scopus_mods_crawl() function is vectorised which means it can iterate over several Scopus identifiers
my_sids <- sids #|> head(10)
my_mods <- my_sids |> scopus_mods_crawl(scopus = scopus, ko = ko)Generating MODS parameters for 139 identifiers...
Generating MODS based on parameters...
Returning 139 MODS invisibly
names(my_mods) [1] "SCOPUS_ID:85149069332" "SCOPUS_ID:85149064612" "SCOPUS_ID:85149025396"
[4] "SCOPUS_ID:85149002122" "SCOPUS_ID:85149000687" "SCOPUS_ID:85149002876"
[7] "SCOPUS_ID:85149014158" "SCOPUS_ID:85149048631" "SCOPUS_ID:85149042402"
[10] "SCOPUS_ID:85149024934" "SCOPUS_ID:85149009698" "SCOPUS_ID:85148973855"
[13] "SCOPUS_ID:85148965056" "SCOPUS_ID:85148950588" "SCOPUS_ID:85148950505"
[16] "SCOPUS_ID:85148950013" "SCOPUS_ID:85148948876" "SCOPUS_ID:85148953526"
[19] "SCOPUS_ID:85148856457" "SCOPUS_ID:85148896813" "SCOPUS_ID:85148872086"
[22] "SCOPUS_ID:85148769893" "SCOPUS_ID:85148701710" "SCOPUS_ID:85148729662"
[25] "SCOPUS_ID:85148723976" "SCOPUS_ID:85148718155" "SCOPUS_ID:85148769365"
[28] "SCOPUS_ID:85148767100" "SCOPUS_ID:85148760221" "SCOPUS_ID:85148717596"
[31] "SCOPUS_ID:85148735096" "SCOPUS_ID:85148760247" "SCOPUS_ID:85148726217"
[34] "SCOPUS_ID:85148705324" "SCOPUS_ID:85148696713" "SCOPUS_ID:85148699111"
[37] "SCOPUS_ID:85148685265" "SCOPUS_ID:85148695297" "SCOPUS_ID:85148687703"
[40] "SCOPUS_ID:85148666055" "SCOPUS_ID:85148668095" "SCOPUS_ID:85148615626"
[43] "SCOPUS_ID:85148644132" "SCOPUS_ID:85148661762" "SCOPUS_ID:85148631836"
[46] "SCOPUS_ID:85148596480" "SCOPUS_ID:85148631781" "SCOPUS_ID:85148583571"
[49] "SCOPUS_ID:85148548211" "SCOPUS_ID:85148543994" "SCOPUS_ID:85148537060"
[52] "SCOPUS_ID:85148534117" "SCOPUS_ID:85148499622" "SCOPUS_ID:85148520239"
[55] "SCOPUS_ID:85148532021" "SCOPUS_ID:85148504588" "SCOPUS_ID:85148528636"
[58] "SCOPUS_ID:85148524172" "SCOPUS_ID:85148505140" "SCOPUS_ID:85148488349"
[61] "SCOPUS_ID:85148487797" "SCOPUS_ID:85148448663" "SCOPUS_ID:85148442912"
[64] "SCOPUS_ID:85148439744" "SCOPUS_ID:85148436111" "SCOPUS_ID:85148427785"
[67] "SCOPUS_ID:85148448236" "SCOPUS_ID:85148454827" "SCOPUS_ID:85148418119"
[70] "SCOPUS_ID:85148425438" "SCOPUS_ID:85148477920" "SCOPUS_ID:85148458170"
[73] "SCOPUS_ID:85148468536" "SCOPUS_ID:85148416228" "SCOPUS_ID:85148413997"
[76] "SCOPUS_ID:85148446005" "SCOPUS_ID:85148440645" "SCOPUS_ID:85148438068"
[79] "SCOPUS_ID:85148431162" "SCOPUS_ID:85148424161" "SCOPUS_ID:85148401898"
[82] "SCOPUS_ID:85148363295" "SCOPUS_ID:85148335262" "SCOPUS_ID:85148344472"
[85] "SCOPUS_ID:85148341360" "SCOPUS_ID:85148367382" "SCOPUS_ID:85148351572"
[88] "SCOPUS_ID:85148344536" "SCOPUS_ID:85148362276" "SCOPUS_ID:85148362264"
[91] "SCOPUS_ID:85148326231" "SCOPUS_ID:85148332172" "SCOPUS_ID:85148330765"
[94] "SCOPUS_ID:85148329829" "SCOPUS_ID:85148321579" "SCOPUS_ID:85148327588"
[97] "SCOPUS_ID:85148334128" "SCOPUS_ID:85148333480" "SCOPUS_ID:85148331383"
[100] "SCOPUS_ID:85148330382" "SCOPUS_ID:85148327666" "SCOPUS_ID:85148326161"
[103] "SCOPUS_ID:85148324740" "SCOPUS_ID:85148323580" "SCOPUS_ID:85148321861"
[106] "SCOPUS_ID:85148321640" "SCOPUS_ID:85148321160" "SCOPUS_ID:85148281393"
[109] "SCOPUS_ID:85148250236" "SCOPUS_ID:85148233746" "SCOPUS_ID:85148206536"
[112] "SCOPUS_ID:85148241343" "SCOPUS_ID:85148111275" "SCOPUS_ID:85148067420"
[115] "SCOPUS_ID:85148093031" "SCOPUS_ID:85148107701" "SCOPUS_ID:85148091482"
[118] "SCOPUS_ID:85148068928" "SCOPUS_ID:85148072105" "SCOPUS_ID:85148079388"
[121] "SCOPUS_ID:85148108363" "SCOPUS_ID:85148100276" "SCOPUS_ID:85148096354"
[124] "SCOPUS_ID:85148053986" "SCOPUS_ID:85148034805" "SCOPUS_ID:85148027673"
[127] "SCOPUS_ID:85148016235" "SCOPUS_ID:85148011714" "SCOPUS_ID:85148001562"
[130] "SCOPUS_ID:85148026995" "SCOPUS_ID:85148000793" "SCOPUS_ID:85148012055"
[133] "SCOPUS_ID:85148031111" "SCOPUS_ID:85147999697" "SCOPUS_ID:85147993483"
[136] "SCOPUS_ID:85148027045" "SCOPUS_ID:85147992049" "SCOPUS_ID:85148031752"
[139] "SCOPUS_ID:85148013186"
my_mods$`SCOPUS_ID:85147171092` |> cat()A zip-file with the results can be generated, and included for download in a quarto doc.